home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Brotikasten
/
BROTCD01.iso
/
c128
/
c83.d64
/
c128-toetsen c64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-08-08
|
2KB
|
64 lines
100 REM*** ALLE C128 TOETSEN AAN IN
1100 REM ** DE C64 MODE
2100 REM *
3100 REM*** TOELICHTING IN NUMMER 11 VAN
4100 REM ** DOSSIER COMMODORE (1987)
5100 GOSUB38050:PRINT"[145] PROGRAMMA WORDT GEACTIVEERD....."
6100 FORAD=49152 TO 49255:READA:POKEAD,A:NEXT
7100 FORT=0TO85:POKE49256+T,PEEK(59953+T):NEXT
8100 POKE 49331,13:POKE49332,192
9100 REM ********************************
10100 REM NA RESET STARTEN MET SYS49152
11100 REM ********************************
12100 PRINT"[145] PROGRAMMA IS NU ACTIEF [146] ":SYS49152:NEW
38050 PRINT"[147]"
38060 PRINT"ALLE C-128 TOETSEN IN DE 64 MODE ACTIEF."
38100 READA$:IFA$="END"THEN 41100
39100 PRINTTAB(5)A$
40100 GOTO38100
41100 GETZ$:IFPEEK(203)=1THEN RETURN
42100 GOTO41100
43050 DATA DE LAATSTE 3 DATAREGELS BE-
43100 DATA VATTEN DE KARAKTERCODES VAN DE
44100 DATA TOETSEN DIE OP DE REM-REGEL
45100 DATA ERBOVEN STAAN. DE WAARDE 255
46100 DATA IS DE WAARDE DIE DE DESBETREF-
47100 DATA FENDE TOETS MAG HEBBEN.
48100 DATA
49100 DATA OM BIJVOORBEELD DE PUNT OP HET
50100 DATA DECIMALE BLOK TE VERANDEREN IN
51100 DATA EEN KOMMA DIENT DE WAARDE 46
52100 DATA VERANDERD TE WORDEN IN 44.
53100 DATA
54100 DATA ONDERBREEK NU M.B.V. DE
55100 DATA RUNSTOP-TOETS HET PROGRAMMA
56100 DATA INDIEN ER NOG DATA GEWIJZIGD
57100 DATA MOET WORDEN.
58100 DATA ,TOETS RETURN OM TE ACTIVEREN..
59100 DATA END
59110 DATA 120,169,104,141,20
59120 DATA 3,169,192,141,21
59130 DATA 3,88,96,169,0
59140 DATA 141,47,208,174,1
59150 DATA 220,224,255,208,3
59160 DATA 76,135,234,168,169
59170 DATA 255,141,0,220,42
59180 DATA 141,47,208,162,8
59190 DATA 72,173,1,220,205
59200 DATA 1,220,208,248,74
59210 DATA 144,12,200,202,208
59220 DATA 249,104,192,17,176
59230 DATA 220,56,176,226,104
59240 DATA 169,0,141,141,2
59250 DATA 132,203,185,80,192
59260 DATA 76,228,234,234,234
59270 REM
59280 REM HELP 8 5 TAB 2 4 7 1
59290 DATA 255,56,53,255,50,52,55,49
59300 REM
59310 REM ESC + - LF ENTR 6 9 3
59320 DATA 255,43,45,255,13,54,57,51
59330 REM
59340 REM ALT 0 . UP DWN RHT LFT NSCR
59350 DATA 255,48,46,145,17,157,29,255